Collection of Tools & Utilities/Collection of Tools and Utilities.iso/graphic/chgle10.zip/SAMPLE1.GLE

Text File | 1991-12-12 | 953b | 75 lines

size 18 24
Set font psc

sub turn I
begin rotate I
set just right
set hei 0.7
text  ╚╬ ╥Γ  \;a
end rotate
end sub

sub Colour value$
set hei 0.8
rmove 0 -1
set color value$
text ▓╗ ═¼ ╗╥ ╢╚
end sub




amove 9 21
set hei 2
set just center
Begin Box  Fill grey20 add 0.3
text ║║╫╓ GLE
End Box
Begin Box  add 0.5
text ║║╫╓ GLE
End Box
set hei 0.5
set just left
amove 8 19
aline 12 19
Text ┐╞╤º╗µ═╝╚φ╝■
amove 2 15
Set hei 1
set just center
Begin rotate 90
Text ║║╫╓┐╔╥╘╚╬╥Γ│▀┤τ
End rotate
amove 5 15
text ┤╙
amove 7 15
text ╡╜
set hei 0.2
amove 6 15
text С
amove 12 12
set hei 8
text ┤≤
amove 13 7
For I=0 To 360 STEP 30
@turn I
next I
set lwidth 0.2
Circle 3.5
amove 5 10
Set lwidth 0.1

Begin box add 0.5
@colour "Grey90"
@colour "Grey80"
@colour "Grey70"
@colour "Grey60"
@colour "Grey50"
@colour "Grey40"
@colour "Grey30"
end box

amove 1 1
set color black
set hei 1
text └² 1